home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #9 / utv1n9s2.d64 / fn boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  531 b   |  24 lines
  1. 10 rem function key loader
  2. 20 rem by john m. campbell
  3. 22 if aa=1 then 120
  4. 25 print "load function keys"
  5. 30 open 15,8,15,"i"
  6. 40 open 2,8,2,"fn keys,p,r"
  7. 50 input#15,en,em$,et,es
  8. 60 if en=0 then 70
  9. 65 print "cannot locate function key definitions"
  10. 67 close3:close15:end
  11. 70 get#2,a0$,a1$
  12. 80 a0=asc(a0$+chr$(0))
  13. 90 a1=asc(a1$+chr$(0))
  14. 95 ad=a0+256*a1
  15. 100 close2:close15
  16. 103 a0=peek(655):a1=peek(656)
  17. 105 if ad+27<>a0+256*a1 then 110
  18. 106 print "function keys already defined"
  19. 107 print "type stop+restore keys then re-run"
  20. 108 end
  21. 110 aa=1:load"fn keys",8,1
  22. 120 sys ad:print "activating function keys"
  23. 130 new
  24.